home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / debug / tiny.scm < prev    next >
Text File  |  1995-10-13  |  505b  |  21 lines
  1. ; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.  See file COPYING.
  2.  
  3. ; Tiny image test system
  4.  
  5. ;(initialize-defpackage! ?? ??)
  6. ;(define-structure tiny-system (export start)
  7. ;  (define-all-operators)
  8. ;  (files (debug tiny)))
  9. ;(link-simple-system '(debug tiny) 'start tiny-system)
  10.  
  11.  
  12. (define (start arg in out)
  13.   (write-string "Hello " out)
  14.   (if (vector? arg)
  15.       (if (< 0 (vector-length arg))
  16.       (write-string (vector-ref arg 0) out)))
  17.   (write-char #\newline out)
  18.   (force-output out)
  19.   0)
  20.  
  21.